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Leea P. Mullaney 

Thii routine aorta randomly ordered information into 
ascending numerical order. 

"The authors of this program material, the POOL organisation 
and Royal McBse believe this program to be correct, however, 
they bear no responsibility, financial or otherwise, for 
errors resulting from its use. This program is distributed 
only to individual mad installation K»Kbe» of FOOL. Further 
distribution of this issnual and accompanying tapes for use 
by non-members is prohibited. 
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Program Mo. Ll-i»9 

PROGRAM DESCRIPTION 

Program Title t "Sorting Routine" 

Author ; Leea P. Mallaney 

Purpose : To sort randomly ordered information into ascending numerical 
order. The sorting can be performed on vhole word3 (located 
in consecutive locations) - or any part of a word. Also, 
groups of words (in consecutive locations) called messages 
may be sorted on any part of any word in the message. 

Input : A list of words, or groups of words located anywhere in 



memory 


in consecutive locations. 


Calling Sequence j 






Of -1 

OC 

OC+1 

a +2 

OC+3 


B L(Code Word #1) 

R (V*0) 

U Lo 
Code Word $2 
Codo Word #3 



Code word #1 must contain the following information: 
M (The rcanber of mesoagas) in hex at Q«l5 
H, (The location of the first word of the first message )- 

in hex at Q-29. 
Thus if coda word #1 is OOlUOjOO, this means there are 
lliH or 20d messages and the first word of the first 
message is located in OjOOH or 1200d. 

Code word #2 must contain the following information: 

N at Q»15>, M being the number of words in each message. 

1<H<6U 

Y at Q B, 29, where T is the number of the message word on 

which the sort is to bo made. 

OOOUOCOU means each message contains h words and the sort 

is to bo performed on the first word of each message. 

Code word #3 must contain a Rack, with binary l's in those bits 
on which ths sort is to be performed. Thus a 7wwwwuv# 
^o\:ld mean sort on bits 1 through 30, and OQwCOwOO would 
mean scrt en bits 8-11 and 20-23. The mask may not con- 
tain a "1" In th3 rign bit since there is no provision 
in the sorting ran tiro for sorting on the sign bit. 

Output: The specified list of rceobagos, in ascending numerical order 
according to the conditions specified. The first word of the 

re-ordered list will be in the same location as the first word 

of the original list. 

Storage : 6 tracks including 2 tracks of temporary storage. The program 
requires h tracks. 1^*01*00 and 1^*0500 must be reserved for 
temporary storage. 

Capacity: Since the sorting routine is set up so that ths list of messages 
— is only stored once, the nusber of massages that can be handled 
is Halted only by the memory capacity. 
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Program No. L1-U9 

Time* One second per word on snail samples 
Examples of Code Words * 

Ho. 1 

To sort one Message" consisting of N words, the programmer may con- 
sidet that he has I messages, one word in length. Thus, to sort one 
SoSge of 37 words, stored in locations U900 - U936, sorting on bits 
15 through 30 inclusive, the code words would read: 

code word 1 0025 3100 37 messages, the first word of the 

first message located in ayou^ 

code word 2 0001 OOOU 1 «>rd P 61 * message, sort on first 

word. 

code word 3 0001 WWKQ Sort on bits 15 - 30 inclusive. 

Ko. 2 

code word 1 008 2000 8 messages, the first word of the 
coae woru x ^^ message located in 3200 d 

code word 2 OOOU 0008 U words per message, sort on 2nd 

word 

code word 3 OWWO W800 Sort on bits U - 11 and 16 - 20, 

inclusive. 
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#Ll-J+9 



Input/Output of Example Code Words 



EXAMPLE 1 






LOCATION 


INITIAL 


SORTED 


4900 


Owj 00001+' 


kf 000002' 


1+901 


qOOOOOlO' 


Owj 00001+' 


U902 


00JJ0018' 


0*000006' 


^903 


Okqw0026' 


Ofg00008' 


U90U 


OOqJOOlj' 


OkOOOOUf' 


4905 


7vqjO02f' 


OwOOOOOj • 


U906 


0fg00008' 


OqOOOOOq' 


U9O7 


0w000030' 


qOOooOlO' 


»+908 


OkOOOOOf 


0k000012' 


1+909 


Oq00003j' 


00000011+' 


1+910 


Og000032' 


Oj 000016' 


1+911 


OwOOOOOj' 


00jj00l8' 


1+912 


Oq00003w' 


OfOOOOlf 


^913 


OfOOOOlf 


OOqjOOlj' 


1+911+ 


qJ000u3j' 


OOOOOOlq' 


1+915 


00000011+ » 


qk000020» 


I+916 


wO00012j' 


0k000022' 


1+917 


0wO0O0o6' 


J 000021+ ' 


1+918 


OqOOOOOq' 


0k000028' 


^919 


qk000020» 


7wqj002f 


1+920 


3J00O061+' 


Ow000030' 


1+921 


fgOOOi90' 


0gO00032' 


1+922 


kf 000002' 


Oq00003l+' 


!+923 


Ok000012' 


OOOO0036' 


1+921+ 


00000036' 


Oq000038' 


^925 


0k000022» 


Og00003f 


1+926 


J 000016' 


Oq00003j ' 


1+927 


Oq000038' 


qj 00003 j' 


1+928 


Ow000258* 


Oq00003q , 


1+929 


Of00003w« 


0fO0003q' 


1+930 


J 000021+' 


3 j 000061+' 


^93i 


OOOOOOlw' 


Of 0000 j8' 


1+932 


OgOOUU3f 


W000012J' 


1+933 


OfOOOOJo' 


fg000190' 


^93** 


Oq00003l+' 


0wO001w2' 


*+93!> 


Ok000028' 


Ov000253' 


I+936 


0wu001w2' 


Ckq«0026' 
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EXAMPLE 2 
LOCATION 

5200 

■to 'I "J 



ror.'t 

3207 

3203 

?209 
3210 
^11 
3212 
3213 

3214 

3215 
3216 

3217 

3218 

3219 
3220 
3221 
3222' 

3223 
322*h 
5225 



3227 

3228 

3229 

.3230 

3231 



INITIAL 

c3cU03JO f 

cr. .-03000' 



cc ::X05' 
o';c 3:13.1' 
01^ ■.,-"-■-' 
000^^X0' 
02qOw 3 00' 
iV.-.?:-;: r>* 

^ "i — r — *~\ ' ~\ 5 

osioccoo' 

OOlOJOwO' 
C&C&OjJsO 1 

OlCOqOOO' 
GO^COO' 



cUc^03j0' 
03gc 



03^pf0oo' 
300' 



CqSOlOOO' 
090w05JO' 

03sOl:8oo , 
016^8000' 

03gOf800' 
OlOob^jO' 
.01^07000' 

0£g09800' 

OOjOS&JO' 

ofoeo3jo' 
ooaofSoo* 

00010800' 
61606800' 



j'^ji\i.j-i±j 



'</. /-it 



01 



r- ■< -: - .'• '.•' -. -j ( 
1 
! 



CV -1 .!;- - ■• ": 

rv f -» —r- ***■'- ^-'") ' 

'10' 



^ -' j - •■ 



U4u- 
01,3;;;, GCO 1 

coc-goo' 
02: : :0310» 

C2o.C ! 5000' 



OlqaSGO' 
03-00003' 
OOlCJOwO' 

c^o^03jo' 

03s0x8C0' 

OqSOlOOG* 
090tr03JO' 

05g0?800' 
01608000 ' 
03g0f800' 
oUoUoo3f 

03g0q800' 
000U800O* 

02a 0*800' 
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SORTING ROUTINE FLOW CHART 



ra • no. of Messages 

Mn « nth Message 

Y • number of word within message on which sort is to be made 

N - number of words per message 



PROGRAM No. L1-U9 
May 26, I960 



0000 




Entry) 



Prom code word 1 
Set Lo (M, ) 



Store M 



0020 



I 



'From code word 2 
Set T-l 
.Store N 



OQQL 



I 



Compute and set N 
L (M max+l+n) 



(s 9 \ n y 



oouo 



'Compute and set 
Lo (M 2 ) 
set n • 1 
n + 1 - 2 



00U6 



I 



k Set Exit address 



0036 



Set Mask 



I 



0028 

Jompute' and set' 

L (M sax + 1) 



~§ 




S1GQ_ 




Set Lo (List I) 
Lo (List II) 



OioU 



'Set addresses of 
Tth word of lists 
and II 



0126 



Copy Mn into List I 
Copy Mn+1 into List II 




In Order 



Increment 
N ♦ l-*n 
(n+1) +l-»n+l 



0218 



No 



0220 




0116 ° }it of °^ d8r 
Set i - 
Record current 
L( Mn+i) & L(M+l+i) 



I 



0200 

Copy List I (Mn+1) 

into locations of 

Mn+l-i 



022U 



i + 1 -*>i 



0233 




Tea 



0301 



Copy Mn-i into 
List I 



0336 



Is Tth wore 
"of Mn-i > Tth word oi 

Mn+1? ^"""res 



I 



03JL8_ 



No 



Copy List II (Mn+1) 
into locations Of 
Mn-i + 1 




a 

u 

O . 
Cut 

U 6 

q „ 
OS 

O w 

CQ g 
^ 2 
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r x / 8 




JOS NO. 


PROGRAM NO. PROGRAM PREPARED BY: 

Li -fc9 Leca P. Kullaney 


PROGRAM CHECKED BY: 

POOL Review 




— 


PROBLEM: 


rtlng Routine 




i 


PROGRAM INPUT CODES 


a. 


-OCATION 


INSTRUCTION £ 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION ADDRESS £ 


1 " 
llOPO | 


, I.o , 


; 


/ 








— 


/ ,0 p , 


i if° i 


<> 


J. 1 C — T — 






q 0,0.0 


, , ,H, 0,3,5 p ' 


Teiap A-M@l5 


1 K,@29 
o 1 — 








j — ' >, u — 
, ,0,1 


i , ,u o, o,i 9 ' 












i i0,2 


, , ,H 0,1,3,8 ' 


M 


set AA 










. ,0,3 


i , ,u. 0,0, Ufl ' 


.X 












, ,o,U 


, , ,T,o, 0,5 h ' 


Y-l@ 29 


set Y-l @ 29 


— 








, ,0,5 


, , ,HJ 0,0,5,5 ' 


Temp B»N <g> 15 










, ,0,6 


, , , U. Q 0,0,7 ' 












, ,0,7 


, , ,m, q3,5,o f 


_x 


M®15 


«KN © 30 - total no,, 

were 


o:£ 








, i ,8 


, , .n! Q 0,5,8 ' 


1<® 30 


-MN© 29 








, ,0,9 


, . it*! q 0,2,6 ' 









, , .0 .0 


P 9 2, 


i 


, ,i,o 


, , , 1 , , A ' 


1@ 29 










, ,1,1 


w,w,« 0,0 p p ,U ' 


.X 


-1C§ 11 + 


I@ 29 • 








, ,1,2 


, , ,t, q 1,6,2 ' 


N@ 29 


set N @ 29 




1 






, ,1,3 


1 , ,T:," Q 1,6,3 ' 


N<3> 29 


set N «5> 29 








, ,1,U 


, , ,Y| 1,U,3 


N@ 29 


set H g> 29 








, ,1,5 


, , , N . q 0, 2 ,3 


'.X 


.<§ 13 


-N@ U 


L 
? 11 










, ,1,6 


, , ,3, q 0,5,9 


• 1@ 11 


- N-l(« 










, , 1,7 


, , ,U| Q O.UiO 














, ,1,8 


, , , 1 i i i 












, ,1,9 


■ , ii! Q 2,0,5 


lX 


l«(«i ) 


set l ft 


(Mx) 

15, Y@ 29 










, , 2,0 


, , , b. q 0,0,0 


' code word 2 


- N@ 










, ,2,1 


, , ,S, 3,0,7 


' 1(S> 29 


- N@ 15, Y-l@ 29 










i , 2,2 


, , , Ui Q 0,0 ,U 






i iO i 


Oi 0,0 3 


i 


. ^2-3 


, , ,U,Q 0,0,0 


lX 


1® 13 




« 1 '-' l v H 1_ 






, , 2,1* 


I 1 1 1 1 1 1 




___„_ 








, , 2,3 


, , i 1, Q 0,0,0 


' l@l5 










, i 2,6 


, , , a. q 2,0,5 


' , . lo(«|) 


-1 (M 


*»nr*> + H : 










, , 2,7 


, , P ,0,0 3 ? 


'* 














, , 2,8 


, , ,B| Q 2, 0,U 


' 1 


„(Hmx + 1 + 
@29 


N) 








. .2-9 


, , ,sj qi,U,3 


' » 


' IoCNmt* X) 








, ,3,0 


, , ,ij 9 2.0.U 


' y w i) 


set Mnax + 1 


1 1 1 1 






, ,3,1 


, , .uj q 1,0,0 


•*f 


i- beginning 




1 ' ■ 1 1 

FORM LP-I4V 










1-7- 


E 


1 CARRIAGE RET 


URN 


* 





= CONDITIONAL. STOP CODE 















LVar-OiJ CUUlNo irILtl 








* 


PREPARED FOR: 
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PAGE 


2/8" 


JOB NO. 


PROGRAM NO. 

L1-U9 


"ROGRAM PREPARED BY: 

Leea P. Mullaney 


PROGRAM CHECKED BY: 

FOOL Review 




PROBLEM: 


Sorting Routine 






PROGRAM INPUT CODES 


0. 



h 

VI 


LOCATION 


INSTRUCTION £ 


CONTENTS 
OF ADDRESS 


NOTE 


S 


OPERATION | ADDRESS Jj 




i 


1 


















X 










p ■ 

_g 0,3 ,2 


i i iTi 0,2,0 h ' 


1 ( max + 1) 












,3,3 


i i ,B 0,0,5(5 ' 


Tenp B ■ . 


- N (g 2< 


5 












,3,U 


i i ,M , 0, 0,5 6 ' 


1@ m 


? 












,3,5 


, , ,U. 0,0,1 j2 ' 


.x 




.-, 










,3,6 


i i ,B. 0,0,0 p ' 


code word 3 


- Mask 


s 










,3,7 


i , |U | 0,0,3 8 ' 














,3,8 


i , i H 1 °, 2 , ° 3 ' 


Mask 


set Mask 










,3,9 


i , i u ! 0, ,U 2 ' 


-/] 












.M 


, i i A °i 2 i°£ ' 


i„<'V 


- *o < M ?> 










,u p. 


, , ,0 1 0,0,0 2 ' 














,U,2 


, , ,C . 0, 2,0 ,7 ' 


HASk 


set Ma3k 










ih,3 


i i .U , 0,0,2 8 ' 


_E 




g| 


. i0 oc 


► | OiO rO U 


, 




ibiU 


i , r | i , i 




^ 










,U£ 


> i > | ^.OP 


1 © 23 












,U,6 


i , i | 3.w,w J 














,U,7 


, i , | 3i w ,w J 


•X 














,U ,8 


i , ,B | 0,0,2 p 


lo + ?0 












AS 


, , , A, 0,3,0 7 


' 1(2> 29 


- l(code word 


3) 










,5,0 


- i , Y | °, ° ,3 ,6 


' -s-EQ 












,5^ 


, , , A , °, 3,0? 


lX 


10 29 


-loc of exit 










,5,2 


, , J . 0, 2, 2 ,0 


' Exit 


set exit 










, ,5,3 


, i , U q 0,3 ,6 






y i'O ,0 


P | 0, 0,1 p 


1 




,5,U 


[.,.,...] 




Y*l<g> 29 










,5,5 


[,,,,,,,] 


lX 


Temp B 












,5,6 


i , i 2,0 p p Q 


' 1<2> IU 












,5,7 


, i i 1 i i i 














i i5|8 


, , , | , , ,2 


lE 


L@ 30 












i ,5-,9 


, , 1, 0,0 i 0,0,0 


1® 11 












i ,6,0 


t, , I J 1 I ,] 


' XX 


^ 










, ,6,1 


1 1 I 1 1 1 1 




' ™ 










i ,6,2 


.,,.,.. .u 




L(P 29 












, ,6,3 


[...,...] 


■X 


YI 




FORM LP- 14V 














• — 


CARRIAGE RETl 
CONDITIONAL S 


JRN 

TOP CODE 




P.OYftL M««tt, Jl»fc4 1 X 



> 










Lbf-JO CU'UlUb 


SHEiil 








IT • 


PREPARED FOR: 
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JOB NO. (PROGRAM NO. 

L1-U9 


PROGRAM PREPARED DY: jPROGRAM CHECKED BY: 

Le@a P* Kallaney POOLLRstiaw 


DATE 




PROBLEM: 

Sorting Routine 


TRACK 




PROGRAM INPUT CODES 


a. 

H 
in 


LOCATION 


INSTRUCTION 


0. 



h 


CONTENTS 
OF ADDRESS 


NOTES 




OPERATION | ADDRESS 




1 


1 




















X 










_g 1,0,0 


i . i B | 0,1,1 $ 




lo (list I) 












i , 1 


, , Y 0, 1 i 3 ,0 




-*► AA" 












,0,2 


i , , A 0, , U £ 




10 23 


- lo(list II) 










,8,3 


i i ,1, 0,1,3.? 




X 


-*-AB" 




# 








,o,U 


i , il, 0,0,5 h 




T-l @ 29 


lo(T word of list II) 










,0,5 


i , ,i| 0,1,5 5 




-*• BC 












,0,6 


i , ,S | 0, 2,2 1 




1® 23 


lod^ word M list I) 










,0,7 


i i ,1,0,3,3(6 




X 


-*»BE 






1 1 I 1 1 1 1 






l°, 8 


, , ,1 ,0,1,1**1 




-*-BB 












,0 9 


i , >B| 0,1,3 8 




AA 


lo(Mn) 










il 


, , iA | 0,0,2 f> 




i em i< 




• 








ll I 


i i iH i 0,1 ,2 6 




X 


AA' 




1 1 I I | 1 | 




_J 


,1 2 


i , iA | Oil 16 2 




N <S> 29 


lo(Mn -t 


" 1) 




r 



i i i i i I I 




,13 


, , ,0,0,1,35 




AB* 














,U 


, i iU - 0,1,2 6 
















,i? 


i i |Z | o,UiO p 




^ 


lo list I 


P 


i i > | i 1 i 






,16 


i i iB | 0,1 ,3 8 




AA 


Here for out of order 


I i 






,1,7 


, , ,H - 0,0,6 p 




-*-XX 


• 


<8 x 

9 . o 








,10 


i i ' .0 . 0,1,1 9 








W a > 








,1? 


, iA , 0,1 ,6 2 




K 


N ®>29 










, 2 P 


i , ,H, 0,0,6 3 




-*-YY 


AF 










i , 2 ?- 


; i A 1 0,3 ,0 p 





C® 15 




5? S ° 








, 22 


, , ,C , 0,2 ,0 I 


-*► AS 








i i i 1 i i i 






2 3 


i i iB | 0,2 5 ? 




fe 


lo(liat I) 






04 








, 2 f* 


, i i T | °,3 ,0 3 




HE' 












,2? 


, , ,U , 0,1 ,2 
















,2 6 


i i 3 | 0,0 f) P 




[Mn] 


AA 1 










,2 ,7 


i , iD .0,1 ,3 p 




X 






• 








, 2 P 


i , ,1 | 0,2 |0 p 




AS» 










, 2 ? 


i , ,u . o,2 5 y 
















,3 


, , ,C |0,0 (0 




list I 












,3 1 


, , iU ,0,1 ,3 S 




X 








FORM LP- 14V 
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X 


CARRIAGE RETL 


MN 


myihi m«»cc if SMI I 



MIIITIB IU u m M 



~ CONDITIONAL STOP CODE 



PREPARLO FOB: 



L0P-3G US HI 



[PftOGRAM NO 

i L1-U9 



' -''»:» S 



ha '...; .;••>-■ 



PROBl.- M: 



Sorting Routine 



PROGRAM INPUT CODE! 



..I .. X J 1_ _i 

- 1 - f- 1 - J ; 



I 



r- 



J_ L _1 



_L 



_1 _. .1. 

- 1 l J 



W X 



J L 



_1 __ 



-L L il_ ______ i 

_L !__._ \ ______ L 



, , o p 9 .0 p q .? 



-L..-J f J— _L i- 

J ____}______ L 

____.i___|__J _i L 



_i ____j__l_ 

_____ L_l_ 



_J 



C 

u 
o . 

_ a 



6 



_ s 
^ i 

rn _ 

o _ 



"<3 £ 



_L J i. l I L 

_____ |. I L_ 1 - 

_] J 1 i__L X 



.J I i. i L- _!_ 

.J i u_ J J-- 1- 



1 



U 



__1_ 
_J_ 



-h 



-r 
-+ 



— - 



_ 1 — I — i — 1_ 

.1 I J J- 



J L .j J _____ 



J L 



J...__.-J 1_ 



J L 



-h 



J L_ 



J _____ 



J 1 J. 



i ! 



_l I L 



______ 



_____ L (. __l 1 l_ 

__L_.J j 1—_L i- 

J J 1__— _____ 



0,0 ,02. 

__________l__-L _. __ i 

_J J L 



J L 



FORM LP- 14 V 



CH£C*,„D BY: 

He view 



H/& 



N O T E S 



+- 



AD 



,_■> i 
n*_ j 



Temp 2 



Hfr 



AA 



AB B 



* ___1.2_. 

i 



,> JMTJL 

-■■^ i~ 



.M_ 



JIB- 



-•- 



*..__ 



BB 



| Teasp 1 

- tfc- — 

II, I | word 



BC 



' ' ? :•'.' 



■_ ?0 



______i-i- 



: 



■ ••ii. itlllll 



.-.APKACK RETURN 
CONDITIONAL. STOP CODE 



PREPARED FOR: 



LQP-30 USERS' ORGAN IZATION 

[PROGRAM NO- 



L1-U9 



1 



PROGRAM PHFPAH, .. i. 

Lee a P. KaUi^ir 



PROBLEM: 



Sorting Routine 



PROGRAM INPUT CODES 



_fi- 



3 



LOCATION 



OlJ^QJb 



i9A 
,0,3 



INSTRUC T! 
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